home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 1 / Eagles_Nest_Mac_Collection_Disc_1.TOAST / HyperCard & XCMD⁄XFCN / HamTechTest4 / Technician Ham Test / background_19429.txt < prev    next >
Text File  |  1993-04-11  |  10KB  |  446 lines
  1. -- background: 19429 from stack: in
  2. -- bmap block id: 98208
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Test
  6. ----- HyperTalk script -----
  7. On openCard
  8.   global questans, questkey, rightone, group
  9.   hide background button "Correct!"
  10.   hide field review
  11.   set hilight of background button A to false
  12.   set hilight of background button B to false
  13.   set hilight of background button C to false
  14.   set hilight of background button D to false
  15.   get the number of card
  16.   -- ‚Ä¢‚Ä¢‚Ä¢ choose question # or card # option
  17.   -- put "Question #" & group into field "Q#" -- question # option
  18.   put "Question #"&it-2 into field "Q#" -- card # option
  19.   put rightone into item group of questkey
  20.   put item group of questans into foo
  21.   if foo is not empty then set hilight of background button foo to true
  22. end openCard
  23.  
  24. on closeCard
  25.   set lockScreen to true
  26.   set hilight of background button A to false
  27.   set hilight of background button B to false
  28.   set hilight of background button C to false
  29.   set hilight of background button D to false
  30.   set lockScreen to false
  31.   hide background button "Correct!"
  32. end closeCard
  33.  
  34. on idle
  35.   global time1
  36.   -- comment out next line (exit idle) if you want a time limit on test.
  37.   -- don't forget to set time limit as described in Exam button of
  38.   -- first card.
  39.   exit idle
  40.   put the seconds into time2
  41.   if time2<time1 then exit idle
  42.   if time2‚â•time1 then
  43.     answer "Too much Time. Try again?" with "OK" or "Quit"
  44.   end if
  45.   if it is "OK" then
  46.     visual effect dissolve to black
  47.     visual effect iris open
  48.     go first card
  49.     openStack
  50.   else
  51.     visual effect dissolve
  52.     go home
  53.   end if
  54. end idle
  55.  
  56. on randomNext
  57.   global group,questlist
  58.   add one to group
  59.   if group > the number of items of questlist then go card report
  60.   get item group of questlist
  61.   go card it
  62. end randomNext
  63.  
  64. on randomPrev
  65.   global group,questlist
  66.   subtract one from group
  67.   if group < 1 then go first card
  68.   get item group of questlist
  69.   go card it
  70. end randomPrev
  71.  
  72. on reView
  73.   global rightone, immediate
  74.   put "Correct answer is " & rightone into field review
  75.   if not immediate then
  76.     wait 3 seconds
  77.     show field review
  78.     wait until the mouseClick
  79.   else
  80.     if hilite of background button rightone is false then
  81.       show field review
  82.       wait until the mouseClick
  83.     else
  84.       -- show background button "Correct!"
  85.     end if
  86.   end if
  87. end reView
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110. -- part 1 (field)
  111. -- low flags: 00
  112. -- high flags: 0000
  113. -- rect: left=16 top=70 right=138 bottom=500
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 0
  117. -- font id: 3
  118. -- text size: 10
  119. -- style flags: 0
  120. -- line height: 13
  121. -- part name: Q1
  122.  
  123.  
  124. -- part 11 (field)
  125. -- low flags: 00
  126. -- high flags: 0000
  127. -- rect: left=48 top=137 right=177 bottom=499
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 0
  131. -- font id: 3
  132. -- text size: 10
  133. -- style flags: 0
  134. -- line height: 13
  135. -- part name: A
  136.  
  137.  
  138. -- part 25 (button)
  139. -- low flags: 00
  140. -- high flags: 0000
  141. -- rect: left=204 top=313 right=342 bottom=241
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 902 / 902
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Prev
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   -- ‚Ä¢‚Ä¢‚Ä¢Comment out last command & uncomment next to last for sequential
  153.   -- cards.  Comment out next to last and uncomment last command for
  154.   -- random cards from buildList (in background of first card of stack).
  155.   global immediate, group, questans, refhide
  156.   if item group of questans is not empty then
  157.     if immediate then reView
  158.   end if
  159.   if refhide is false then
  160.     put true into refhide
  161.     hide field ReferenceField
  162.   end if
  163.   visual effect wipe right fast to black
  164.   visual effect wipe left
  165.   go to previous card  -- ‚Ä¢‚Ä¢‚Ä¢ for sequential cards
  166.   -- randomPrev -- ‚Ä¢‚Ä¢‚Ä¢ for randomly-generated cards from buildList
  167. end mouseUp
  168.  
  169.  
  170. -- part 26 (button)
  171. -- low flags: 00
  172. -- high flags: 0000
  173. -- rect: left=297 top=313 right=342 bottom=333
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 26425 / 26425
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: Next
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   -- ‚Ä¢‚Ä¢‚Ä¢Comment out last command & uncomment next to last for sequential
  185.   -- cards.  Comment out next to last and uncomment last command for
  186.   -- random cards from buildList (in background of first card of stack).
  187.   global immediate, group, questans, refhide
  188.   if item group of questans is not empty then
  189.     if immediate then reView
  190.   end if
  191.   if refhide is false then
  192.     put true into refhide
  193.     hide field ReferenceField
  194.   end if
  195.   visual effect wipe left fast to black
  196.   visual effect wipe right fast
  197.   go to next card -- ‚Ä¢‚Ä¢‚Ä¢ for sequential cards
  198.   -- randomNext -- ‚Ä¢‚Ä¢‚Ä¢ for randomly-generated cards from buildList
  199. end mouseUp
  200.  
  201.  
  202.  
  203. -- part 27 (field)
  204. -- low flags: 00
  205. -- high flags: 0000
  206. -- rect: left=48 top=178 right=219 bottom=508
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 0
  210. -- font id: 3
  211. -- text size: 10
  212. -- style flags: 0
  213. -- line height: 13
  214. -- part name: B
  215.  
  216.  
  217. -- part 28 (field)
  218. -- low flags: 00
  219. -- high flags: 0000
  220. -- rect: left=48 top=221 right=262 bottom=508
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 0 / 0
  223. -- text alignment: 0
  224. -- font id: 3
  225. -- text size: 10
  226. -- style flags: 0
  227. -- line height: 13
  228. -- part name: C
  229.  
  230.  
  231. -- part 29 (field)
  232. -- low flags: 00
  233. -- high flags: 0000
  234. -- rect: left=47 top=264 right=306 bottom=502
  235. -- title width / last selected line: 0
  236. -- icon id / first selected line: 0 / 0
  237. -- text alignment: 0
  238. -- font id: 3
  239. -- text size: 10
  240. -- style flags: 0
  241. -- line height: 13
  242. -- part name: D
  243.  
  244.  
  245. -- part 20 (field)
  246. -- low flags: 01
  247. -- high flags: 0004
  248. -- rect: left=15 top=31 right=53 bottom=166
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 0 / 0
  251. -- text alignment: 0
  252. -- font id: 0
  253. -- text size: 12
  254. -- style flags: 0
  255. -- line height: 16
  256. -- part name: Q#
  257. ----- HyperTalk script -----
  258.  
  259.  
  260.  
  261.  
  262. -- part 36 (button)
  263. -- low flags: 00
  264. -- high flags: 0000
  265. -- rect: left=368 top=305 right=342 bottom=406
  266. -- title width / last selected line: 0
  267. -- icon id / first selected line: 21700 / 21700
  268. -- text alignment: 1
  269. -- font id: 0
  270. -- text size: 12
  271. -- style flags: 0
  272. -- line height: 16
  273. -- part name: Home
  274. ----- HyperTalk script -----
  275. on mouseUp
  276.   visual effect iris close
  277.   go home
  278. end mouseUp
  279.  
  280.  
  281.  
  282.  
  283. -- part 38 (button)
  284. -- low flags: 80
  285. -- high flags: 8002
  286. -- rect: left=173 top=116 right=138 bottom=245
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 0 / 0
  289. -- text alignment: 1
  290. -- font id: 0
  291. -- text size: 12
  292. -- style flags: 0
  293. -- line height: 16
  294. -- part name: Correct!
  295.  
  296.  
  297. -- part 39 (button)
  298. -- low flags: 00
  299. -- high flags: 8005
  300. -- rect: left=14 top=138 right=174 bottom=44
  301. -- title width / last selected line: 0
  302. -- icon id / first selected line: 0 / 0
  303. -- text alignment: 1
  304. -- font id: 0
  305. -- text size: 12
  306. -- style flags: 0
  307. -- line height: 16
  308. -- part name: A
  309. ----- HyperTalk script -----
  310. on mouseUp
  311.   global questans, group
  312.   set hilight of background button A to true
  313.   set hilight of background button B to false
  314.   set hilight of background button C to false
  315.   set hilight of background button D to false
  316.   put "A" into item group of questans
  317. end mouseUp
  318.  
  319.  
  320.  
  321. -- part 40 (button)
  322. -- low flags: 00
  323. -- high flags: 8005
  324. -- rect: left=14 top=178 right=214 bottom=44
  325. -- title width / last selected line: 0
  326. -- icon id / first selected line: 0 / 0
  327. -- text alignment: 1
  328. -- font id: 0
  329. -- text size: 12
  330. -- style flags: 0
  331. -- line height: 16
  332. -- part name: B
  333. ----- HyperTalk script -----
  334. on mouseUp
  335.   global questans, group
  336.   set hilight of background button A to false
  337.   set hilight of background button B to true
  338.   set hilight of background button C to false
  339.   set hilight of background button D to false
  340.   put "B" into item group of questans
  341. end mouseUp
  342.  
  343.  
  344.  
  345. -- part 41 (button)
  346. -- low flags: 00
  347. -- high flags: 8005
  348. -- rect: left=14 top=219 right=255 bottom=44
  349. -- title width / last selected line: 0
  350. -- icon id / first selected line: 0 / 0
  351. -- text alignment: 1
  352. -- font id: 0
  353. -- text size: 12
  354. -- style flags: 0
  355. -- line height: 16
  356. -- part name: C
  357. ----- HyperTalk script -----
  358. on mouseUp
  359.   global questans, group
  360.   set hilight of background button A to false
  361.   set hilight of background button B to false
  362.   set hilight of background button C to true
  363.   set hilight of background button D to false
  364.   put "C" into item group of questans
  365. end mouseUp
  366.  
  367.  
  368.  
  369. -- part 42 (button)
  370. -- low flags: 00
  371. -- high flags: 8005
  372. -- rect: left=14 top=264 right=300 bottom=44
  373. -- title width / last selected line: 0
  374. -- icon id / first selected line: 0 / 0
  375. -- text alignment: 1
  376. -- font id: 0
  377. -- text size: 12
  378. -- style flags: 0
  379. -- line height: 16
  380. -- part name: D
  381. ----- HyperTalk script -----
  382. on mouseUp
  383.   global questans, group
  384.   set hilight of background button A to false
  385.   set hilight of background button B to false
  386.   set hilight of background button C to false
  387.   set hilight of background button D to true
  388.   put "D" into item group of questans
  389. end mouseUp
  390.  
  391.  
  392.  
  393. -- part 43 (field)
  394. -- low flags: 81
  395. -- high flags: 0004
  396. -- rect: left=339 top=119 right=137 bottom=498
  397. -- title width / last selected line: 0
  398. -- icon id / first selected line: 0 / 0
  399. -- text alignment: 0
  400. -- font id: 3
  401. -- text size: 12
  402. -- style flags: 256
  403. -- line height: 16
  404. -- part name: review
  405.  
  406.  
  407. -- part 44 (button)
  408. -- low flags: 00
  409. -- high flags: 0000
  410. -- rect: left=460 top=24 right=62 bottom=503
  411. -- title width / last selected line: 0
  412. -- icon id / first selected line: 12119 / 12119
  413. -- text alignment: 1
  414. -- font id: 0
  415. -- text size: 12
  416. -- style flags: 0
  417. -- line height: 16
  418. -- part name: Reference
  419. ----- HyperTalk script -----
  420. on mouseUp
  421.   global refhide
  422.   if refhide is false then
  423.     put true into refhide
  424.     hide field ReferenceField
  425.   else
  426.     put false into refhide
  427.     show field ReferenceField
  428.   end if
  429.  
  430. end mouseUp
  431.  
  432.  
  433.  
  434. -- part 45 (field)
  435. -- low flags: 80
  436. -- high flags: 0004
  437. -- rect: left=188 top=32 right=54 bottom=443
  438. -- title width / last selected line: 0
  439. -- icon id / first selected line: 0 / 0
  440. -- text alignment: 0
  441. -- font id: 0
  442. -- text size: 12
  443. -- style flags: 0
  444. -- line height: 16
  445. -- part name: ReferenceField
  446.